#!/usr/bin/perl
#author yuyuan crazypg@gmail.com

$linenum=1;

while(defined($line = <>)){
	if($linenum == 3){
		chomp($line);

		my @args = split /\s+/ , $line ;
		$cpusage = 100 - $args[ $#args ];
	};
	$linenum = $linenum + 1;
};

print $cpusage,"\n";
